برنامه یToolbars

این برنامه یک Toolbarsبا امکاناتی بالا در بالای مانیتور قرار میده که

خیلی جالبه این رو با دستای خودم نوشتم کفتم چون زیاد طول نکشید

سورسش رو هم براتون بزارم

دانلود کد سورس

رمز:vb6

هر هفته یک برنامه ی کاربردی

توی این هفته این برنامه رو براتون آماده کردم

همانند برایی ویندوز اما با کمی کارایی کمتر ولی امکانات بیشتر

حتما دانلودش کنید اگر نظر بدین سورسش رو براتون می ذارم

دانلود برنامه

رمز:vb6

به روش زیر عمل کنید

Public Declare Function timeGetTime Lib "winmm.dll" () As Long

بعد از معرفی تابع بالادستور زیر رادر یک دکمه بنویسید

Dim A as Long
Private Sub Command1_Click()
     A = timeGetTime
     Text1.Text = A
End Sub

موفق باشید

امروز کد یه دفتر چه تلفن خوب با امکانات خوب گذاشتم که لذتش رو ببرین

نظر هم بدین ممنون

ددانلود کد سورس

API تغییر برجسب درایو

این ای پی ای نام برچسب داریو شما را تغییر می دهد

برای این منظور دستور زیر را در یک ماژول بنویسد

Public Declare Function SetVolumeLabelA  Lib "kernel32.dll" (ByVal lpRootName  As String,
ByVal lpVolumeName As String) As Long

 : lpRootName مسیر پوشه:مثل درایو :\C

VolumeNameنام برچسب "ویژالبیسیک"

بعد دستور زیر را در یک دکمه یا فرم لود بنویسید

Dim A As Long
     Private Sub Commad1_Click()
     A = SetVolumeLabelA("C:\", "VisualBasic")
End Sub

موفق باشید

منتظر API بعدی باشید

کامپونت پخش فایل های gif در وی بی

با این کامپونت می تونید فایل هایgif در وی بی اجرا کنید..

دانلود کامونت

برنامه ی Visual Basic Code Library

این برنامه رو که خودم نوشتم یک منبع سورس کد خوبیه از

تمامی بخش های ویژال بیسیک ۶.....

حتما دانلودش کنید این نسخه رو به صورت رایگان ساختم میدونی چرا

چون ۲ ماه طول کشید کد هاشو ژیدا کنم....

دانلود برنامه با حجم ۹۰۰ کیلو بایت

پسوورد : vb6

برنامه ی FalHafiz

این برنامه قابلیت گرفتن فال شما رادارد و دارای

ظاهر زیبایی نیز است

این رو خودم با وی بی نوشتم کد سورسش رو هم با در خواست شما می زارم

دانلود برنامه با حجم ۹۳۰ کیلوبایت

رمز:vb6

نمایش نام کاربری

برای انجام این کار یم تکست در فرم بگزارید و

API زیر رو در جنرال بنویسید

Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

برای نمایش ان بر روی فرم دبل کلیک کرده و دستور زیر را بنویسید

Dim Buffer As String
Buffer = String(255, 0)
GetUserName Buffer, 255
Buffer = Left(Buffer, InStr(Buffer, Chr(0)) - 1)
Text1 = Buffer

سعی می کنمAPI بیشتری رو بزارم فعلا بای...

تغییر زبان صفحه کلید

برای این کار دستور زیر را در جنرال بنویسید

Private Const HKL_NEXT = 1
Private Const HKL_PREV = 0

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Dim oldKB As Long

بعدش دستور زیر را برای دکمه تغییر به فارسی بنویسید

    oldKB = GetKeyboardLayout(0)
    ActivateKeyboardLayout HKL_NEXT, ByVal 0&

این هم برای برگرداندنش

    ActivateKeyboardLayout oldKB, ByVal 0&

خیلی آسونه نه